0 REM << RR13-6 >>
1 REM --- SPRITE LOADER ---
10 INPUT"LOAD WHICH SPRITE FILE";FL$
20 INPUT"WHICH MEMORY BLOCK (192..199)";BK
30 MEM=64*BK
40 OPEN 8,8,8,"0:"+FL$+",S,R"
45 REM >FOR CASSETTE, REPLACE    LINE 40 WITH THIS: OPEN 8,1,0,FL$
50 FOR N=1 TO 63
60 INPUT#8,TTL
70 PRINT TTL,
80 POKE MEM,TTL : MEM=MEM+1
90 NEXT N
100 CLOSE 8